Gráfico de Pareto

Introducción

Este es un ejemplo sobre como llevar a cabo gráficos de Pareto en R, usando la librería qcc. Este ejercicio es extraído del material del profesor Ing. Manrique Araya Alfaro.

Librerías

library(tidyverse)
library(qcc)

Ejercicio

En una fábrica de aparatos de línea blanca se han presentado problemas con la calidad de las lavadoras. Un grupo de mejora de la calidad decide revisar los problemas de la tina de las lavadoras, ya que con frecuencia es necesario retrabajarlas para que éste tenga una calidad aceptable. Para ello, estratificaron los problemas en la tina de lavadora por tipo de defecto, con la idea de localizar cual es desperfecto principal. A continuación, se muestra el análisis de los defectos encontrados en las tinas producidas en 5 meses.

Realice un análisis de Paretto y obtenga conclusiones

Defecto <- c("Boca ovalada", "Perforaciones deformes",
             "Boda despostillada", "Falta de fundente",
             "Mal soldada")

Frecuencia <- c(1200, 400, 180, 130, 40)

data.frame(Defecto, Frecuencia) %>%
  flextable::flextable(cwidth = 1.9) # este código es solo para presentar los datos

Defecto	Frecuencia
Boca ovalada	1,200
Perforaciones deformes	400
Boda despostillada	180
Falta de fundente	130
Mal soldada	40

Ahora, realizamos el diagrama de Pareto.

# Sin nombres

qcc::pareto.chart(Frecuencia)

   
Pareto chart analysis for Frecuencia
      Frequency   Cum.Freq.  Percentage Cum.Percent.
  A 1200.000000 1200.000000   61.538462    61.538462
  B  400.000000 1600.000000   20.512821    82.051282
  C  180.000000 1780.000000    9.230769    91.282051
  D  130.000000 1910.000000    6.666667    97.948718
  E   40.000000 1950.000000    2.051282   100.000000

# Con nombres

names(Frecuencia) <- Defecto

qcc::pareto.chart(Frecuencia)

                        
Pareto chart analysis for Frecuencia
                           Frequency   Cum.Freq.  Percentage Cum.Percent.
  Boca ovalada           1200.000000 1200.000000   61.538462    61.538462
  Perforaciones deformes  400.000000 1600.000000   20.512821    82.051282
  Boda despostillada      180.000000 1780.000000    9.230769    91.282051
  Falta de fundente       130.000000 1910.000000    6.666667    97.948718
  Mal soldada              40.000000 1950.000000    2.051282   100.000000